home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 101 / 101.d81 / dir sort / dir sort.0829 / dir sort.a7ae (.txt)
Encoding:
Commodore BASIC  |  1992-01-01  |  49.6 KB  |  41 lines
  1. 100 poke56,144:clr:poke53281,0:poke53280,0
  2. 110 rem %"font":%"toolkit 9000":%"dir 9e00"
  3. 120 mt=36864:box=mt+3:dir=40448:poke53272,24
  4. 130 dimd(30),dr(30),wd(40),a$(30):d=0:fori=8to30
  5. 140 d(i)=0:close2:open2,i,2:close2:ifst=0thend(i)=1:d=d+1:dr(d)=i
  6. 150 next
  7. 160 fori=1tod:close15:open15,dr(i),15:print#15,"m-r"chr$(160)chr$(254)chr$(6)
  8. 170 forj=1to6:get#15,a$:a$(dr(i))=a$(dr(i))+a$:next:next
  9. 180 fori=1tod:ifleft$(a$(dr(i)),3)="cmd"then220
  10. 190 close15:open15,dr(i),15:print#15,"m-r"chr$(183)chr$(229)chr$(17)
  11. 200 a$(dr(i))="":forj=1to17:get#15,a$:a$(dr(i))=a$(dr(i))+a$:next
  12. 210 sysmt+24,a$(dr(i))
  13. 220 next
  14. 230 fori=1tod:ifasc(a$(dr(i)))=127thena$(dr(i))="1581 drive"
  15. 240 next
  16. 250 print"[147][159]":sysbox,0,39,0,0,160,13:sysbox,0,39,1,1,160,3:sysbox,0,39,2,2,160,5
  17. 260 print"";:sysmt+18,1,"[196] [201] [210] [197] [195] [212] [207] [210] [217]   [211] [207] [210] [212]":poke198,0
  18. 270 sysbox,0,39,4,24,102,14:sysbox,3,36,6,23,255,6
  19. 280 sysbox,4,37,5,22,160,3
  20. 290 poke199,1:poke646,3:fori=8to16
  21. 300 sysmt+15,8,i-2,"[196]evice "+right$("0"+str$(i),2)+":"+a$(dr(i-7)):next
  22. 310 sysbox,6,35,17,21,160,13:sysbox,6,35,17,17,247,13
  23. 320 sysbox,6,35,21,21,239,13
  24. 330 sysbox,5,5,17,21,234,3:sysbox,36,36,17,21,229,3
  25. 340 print"[153]";:sysmt+18,18,"[211]ort [193] [196]irectory"
  26. 350 sysmt+18,19,"[214]iew [193] [196]irectory"
  27. 360 sysmt+18,20,"[210]eturn [212]o [204][207][193][196][211][212][193][210]"
  28. 370 sysmt,18,7,34,3,13,1,0:geta$:a=val(a$):onagoto410,380,600
  29. 380 sysmt,6,5,36,9,131,129,0:geta$:dv=val(a$)+7
  30. 390 close2:open2,dv,2:close2:ifstthen380
  31. 400 print"[147]":sysdir,dv:print"[208]ress a key...";:poke198,0:wait198,15:goto250
  32. 410 print:sys50000:goto250
  33. 590 stop
  34. 600 poke53272,23
  35. 605 a$="hello connect":fori=8to9:close2:open2,i,2:close2:ifstthen620
  36. 610 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then630
  37. 620 next:print"[147]":end
  38. 630 q$=chr$(34):poke646,peek(53281):print"[147]"
  39. 640 print"load"q$a$q$","i
  40. 650 print"run":poke631,13:poke632,13:poke198,2:end
  41.